LOGIC Apps/Logic-APPLE_II_APPS.iso/mac/LOGIC Apple II 5.25" Library - ProDOS/PRO023.dsk/M3.bas

BASIC Source File | 2012-02-16 | 9KB | 411 lines

0  HOME
100  HGR : HCOLOR= 3
110  HPLOT 3,18 TO 6,23 TO 9,29 TO 12,35 TO 14,41 TO 16,47 TO 18,55 TO 20,63 TO 22,71 TO 22,89 TO 20,97 TO 18,105 TO 16,112 TO 14,118 TO 12,124 TO 9,130 TO 6,136 TO 3,141
112  HPLOT 4,18 TO 7,23 TO 10,29 TO 13,35 TO 15,41 TO 17,47 TO 19,55 TO 21,63 TO 23,71 TO 23,89 TO 21,97 TO 19,105 TO 17,112 TO 15,118 TO 13,124 TO 10,130 TO 7,136 TO 4,141
114  HPLOT 5,18 TO 8,23 TO 11,29 TO 14,35 TO 16,41 TO 18,47 TO 20,55 TO 22,63 TO 24,71 TO 24,89 TO 22,97 TO 20,105 TO 18,112 TO 16,118 TO 14,124 TO 11,130 TO 8,136 TO 5,141
150  REM      writ Conx mir
152 X% = 1:Y% = 15
154  GOSUB 11150
156  REM      o
158 X% = 8
160  GOSUB 10500
162  REM      n
164 X% = 14
166  GOSUB 10450
168  REM      v
170 X% = 20
172  GOSUB 10750
174  REM      e
176 X% = 27
178  GOSUB 10150
180  REM      x
182 X% = 33
184  GOSUB 10800
190  REM      M
192 X% = 42
194  GOSUB 11050
196  REM      i
198 X% = 49
200  GOSUB 10350
202  REM      r
204 X% = 52
206  GOSUB 10600
208  REM      r
210 X% = 58
212  GOSUB 10600
214  REM      o
216 X% = 64
218  GOSUB 10500
220  REM      r
222 X% = 70
224  GOSUB 10600
240  REM  draw perp
242  HPLOT 22,64 TO 130,37
244  REM      L
246 X% = 135:Y% = 40
248  GOSUB 11000
250  REM      i
252 X% = 142
254  GOSUB 10350
256  REM      n
258 X% = 145
260  GOSUB 10450
262  REM      e
264 X% = 151
266  GOSUB 10150
270  REM      p
272 X% = 160
274  GOSUB 10550
276  REM      e
278 X% = 166
280  GOSUB 10150
282  REM      r
284 X% = 172
286  GOSUB 10600
288  REM      p
290 X% = 178
292  GOSUB 10550
294  REM      e
296 X% = 184
298  GOSUB 10150
300  REM      n
302 X% = 190
304  GOSUB 10450
306  REM      d
308 X% = 196
310  GOSUB 10100
312  REM      i
314 X% = 202
316  GOSUB 10350
318  REM      c
320 X% = 205
322  GOSUB 10050
324  REM      u
326 X% = 211
328  GOSUB 10700
330  REM      l
332 X% = 217
334  GOSUB 10400
336  REM      a
338 X% = 220
340  GOSUB 10000
342  REM     r
344 X% = 226
346  GOSUB 10600
350  REM      draw inc
352  HPLOT 125,64 TO 22,64
354  HPLOT 130,59 TO 125,64
356  HPLOT 130,69 TO 125,64
360  REM       writ inc
362 X% = 134:Y% = 67
364  GOSUB 10950
366  REM      n
368 X% = 141
370  GOSUB 10450
372  REM  c
374 X% = 147
376  GOSUB 10050
378  REM      i
380 X% = 153
382  GOSUB 10350
384  REM      d
386 X% = 156
388  GOSUB 10100
390  REM      e
392 X% = 162
394  GOSUB 10150
396  REM      n
398 X% = 168
400  GOSUB 10450
402  REM      t
404 X% = 174
406  GOSUB 10650
420  REM      R
422 X% = 183
424  GOSUB 11100
426  REM      a
428 X% = 190
430  GOSUB 10000
432  REM      y
434 X% = 196
436  GOSUB 10850
450  REM      draw refl
452  HPLOT 22,64 TO 110,20
454  HPLOT 109,20 TO 113,20
456  HPLOT 110,21 TO 113,21
458  HPLOT 111,22 TO 113,22
460  HPLOT 108,19 TO 113,19
462  HPLOT 112,23 TO 113,23
464  HPLOT 107,18 TO 113,18
466  HPLOT 113,24
470  REM      R
472 X% = 135:Y% = 15
474  GOSUB 11100
476  REM      e
478 X% = 142
480  GOSUB 10150
482  REM      f
484 X% = 148
486  GOSUB 10200
488  REM      l
490 X% = 154
492  GOSUB 10400
494  REM      e
496 X% = 157
498  GOSUB 10150
500  REM      c
502 X% = 163
504  GOSUB 10050
506  REM      t
508 X% = 169
510  GOSUB 10650
512  REM      e
514 X% = 174
516  GOSUB 10150
518  REM      d
520 X% = 180
522  GOSUB 10100
530  REM      R
532 X% = 189
534  GOSUB 11100
536  REM      a
538 X% = 196
540  GOSUB 10000
542  REM      y
544 X% = 202
546  GOSUB 10850
550  REM      draw ang
552  HPLOT 43,55 TO 46,63
560  REM      write ang's
562 X% = 120:Y% = 52
564  GOSUB 10900
566 X% = 127
568  GOSUB 10450
570  REM      g
572 X% = 133
574  GOSUB 10250
576 X% = 140
578  GOSUB 10400
580  REM      e
582 X% = 143
584  GOSUB 10150
600 X% = 152
602  GOSUB 10500
604  REM      f
606 X% = 158
608  GOSUB 10200
620  REM      I
622 X% = 166
624  GOSUB 10950
626  REM      n
628 X% = 172
630  GOSUB 10450
632  REM      c
634 X% = 178
636  GOSUB 10050
638  REM      i
640 X% = 184
642  GOSUB 10350
644  REM      d
646 X% = 187
648  GOSUB 10100
650  REM      e
652 X% = 193
654  GOSUB 10150
656  REM      n
658 X% = 199
660  GOSUB 10450
662  REM      c
664 X% = 205
666  GOSUB 10050
668  REM      e
670 X% = 211
672  GOSUB 10150
700  REM      write ang of ref
702 X% = 120:Y% = 26
704  GOSUB 10900
706  REM      n
708 X% = 127
710  GOSUB 10450
712  REM      g
714 X% = 133
716  GOSUB 10250
718  REM      l
720 X% = 139
722  GOSUB 10400
724  REM      e
726 X% = 142
728  GOSUB 10150
730  REM      o
732 X% = 151
734  GOSUB 10500
736  REM      f
738 X% = 157
739  GOSUB 10200
740  REM      R
742 X% = 166
744  GOSUB 11100
746  REM      e
748 X% = 173
750  GOSUB 10150
752  REM      f
754 X% = 179
756  GOSUB 10200
758  REM      l
760 X% = 185
762  GOSUB 10400
764  REM      e
766 X% = 188
768  GOSUB 10150
770  REM      c
772 X% = 194
774  GOSUB 10050
776  REM      t
778 X% = 200
780  GOSUB 10650
782  REM      i
784 X% = 205
786  GOSUB 10350
788  REM      o
790 X% = 208
792  GOSUB 10500
794  REM      n
796 X% = 214
798  GOSUB 10450
900  VTAB (21): PRINT "Press any key for an explanation."
902  GET KY$: CALL 62450
904  PRINT  CHR$(4);"run cx"
5000  END
9999  REM     a
10000  HPLOT X%,Y% -1
10010  HPLOT X% +1,Y% TO X% +2,Y%
10020  HPLOT X% +1,Y% -2 TO X% +2,Y% -2
10030  HPLOT X% +1,Y% -4 TO X% +2,Y% -4
10040  HPLOT X% +3,Y% TO X% +3,Y% -3
10041  RETURN
10049  REM     c
10050  HPLOT X%,Y% -1 TO X%,Y% -3
10060  HPLOT X% +1,Y% TO X% +3,Y%
10070  HPLOT X% +1,Y% -4 TO X% +3,Y% -4
10071  RETURN
10099  REM     d
10100  HPLOT X%,Y% -1 TO X%,Y% -3
10110  HPLOT X% +1,Y% TO X% +2,Y%
10120  HPLOT X% +1,Y% -4 TO X% +2,Y% -4
10130  HPLOT X% +3,Y% TO X% +3,Y% -6
10131  RETURN
10149  REM     e
10150  HPLOT X%,Y% -1 TO X%,Y% -3
10160  HPLOT X% +1,Y% TO X% +3,Y%
10170  HPLOT X% +1,Y% -2 TO X% +2,Y% -2
10180  HPLOT X% +1,Y% -4 TO X% +2,Y% -4
10190  HPLOT X% +3,Y% -3
10191  RETURN
10199  REM     f
10200  HPLOT X%,Y% -3 TO X% +2,Y% -3
10210  HPLOT X% +1,Y% TO X% +1,Y% -5
10220  HPLOT X% +2,Y% -6 TO X% +3,Y% -6
10221  RETURN
10249  REM     g
10250  HPLOT X%,Y% -1 TO X%,Y% -3
10260  HPLOT X% +1,Y% TO X% +2,Y%
10270  HPLOT X% +1,Y% -4 TO X% +2,Y% -4
10280  HPLOT X% +3,Y% +2 TO X% +3,Y% -3
10290  HPLOT X% +1,Y% +3 TO X% +2,Y% +3
10291  RETURN
10299  REM     h
10349  REM     i
10350  HPLOT X%,Y% TO X%,Y% -3
10360  HPLOT X%,Y% -5
10361  RETURN
10399  REM     l
10400  HPLOT X%,Y% TO X%,Y% -6
10401  RETURN
10449  REM     n
10450  HPLOT X%,Y% TO X%,Y% -4
10460  HPLOT X% +1,Y% -3
10470  HPLOT X% +2,Y% -4
10480  HPLOT X% +3,Y% TO X% +3,Y% -3
10481  RETURN
10499  REM     o
10500  HPLOT X%,Y% -1 TO X%,Y% -3
10510  HPLOT X% +1,Y% TO X% +2,Y%
10520  HPLOT X% +1,Y% -4 TO X% +2,Y% -4
10530  HPLOT X% +3,Y% -1 TO X% +3,Y% -3
10531  RETURN
10549  REM     p
10550  HPLOT X%,Y% +3 TO X%,Y% -4
10560  HPLOT X% +1,Y% TO X% +2,Y%
10570  HPLOT X% +1,Y% -4 TO X% +2,Y% -4
10580  HPLOT X% +3,Y% -1 TO X% +3,Y% -3
10581  RETURN
10599  REM      r
10600  HPLOT X%,Y% TO X%,Y% -4
10610  HPLOT X% +1,Y% -3
10620  HPLOT X% +2,Y% -4 TO X% +3,Y% -4
10621  RETURN
10649  REM      t
10650  HPLOT X%,Y% -4
10660  HPLOT X% +1,Y% TO X% +1,Y% -6
10670  HPLOT X% +2,Y% -4
10671  RETURN
10699  REM      u
10700  HPLOT X%,Y% -1 TO X%,Y% -4
10710  HPLOT X% +1,Y%
10720  HPLOT X% +2,Y% -1
10730  HPLOT X% +3,Y% TO X% +3,Y% -4
10731  RETURN
10749  REM      v
10750  HPLOT X%,Y% -2 TO X%,Y% -4
10760  HPLOT X% +1,Y% -1
10770  HPLOT X% +2,Y%
10780  HPLOT X% +3,Y% -1
10790  HPLOT X% +4,Y% -2 TO X% +4,Y% -4
10791  RETURN
10799  REM      x
10800  HPLOT X%,Y% TO X% +4,Y% -4
10810  HPLOT X% +4,Y% TO X%,Y% -4
10811  RETURN
10849  REM      y
10850  HPLOT X%,Y% -1 TO X%,Y% -4
10860  HPLOT X% +1,Y% TO X% +2,Y%
10870  HPLOT X% +3,Y% +2 TO X% +3,Y% -4
10880  HPLOT X% +2,Y% +3
10881  RETURN
10899  REM       A
10900  HPLOT X%,Y% TO X%,Y% -4
10910  HPLOT X% +1,Y% -5 TO X% +2,Y% -6
10920  HPLOT X% +3,Y% -5
10930  HPLOT X% +1,Y% -2 TO X% +3,Y% -2
10940  HPLOT X% +4,Y% TO X% +4,Y% -4
10941  RETURN
10949  REM      I
10950  HPLOT X% +1,Y% TO X% +3,Y%
10960  HPLOT X% +2,Y% -1 TO X% +2,Y% -5
10970  HPLOT X% +1,Y% -6 TO X% +3,Y% -6
10971  RETURN
10999  REM       L
11000  HPLOT X%,Y% TO X%,Y% -6
11010  HPLOT X% +1,Y% TO X% +4,Y%
11011  RETURN
11049  REM       M
11050  HPLOT X%,Y% TO X%,Y% -6
11060  HPLOT X% +1,Y% -5
11070  HPLOT X% +2,Y% -3 TO X% +2,Y% -5
11080  HPLOT X% +3,Y% -5
11090  HPLOT X% +4,Y% TO X% +4,Y% -6
11091  RETURN
11099  REM       R
11100  HPLOT X%,Y% TO X%,Y% -6
11110  HPLOT X% +1,Y% -3 TO X% +3,Y% -3
11120  HPLOT X% +1,Y% -6 TO X% +3,Y% -6
11130  HPLOT X% +4,Y% -4 TO X% +4,Y% -5
11140  HPLOT X% +4,Y% TO X% +2,Y% -2
11141  RETURN
11149  REM       C
11150  HPLOT X%,Y% -1 TO X%,Y% -5
11160  HPLOT X% +1,Y% TO X% +3,Y%
11170  HPLOT X% +1,Y% -6 TO X% +3,Y% -6
11180  HPLOT X% +4,Y% -5
11190  HPLOT X% +4,Y% -1
11191  RETURN